home *** CD-ROM | disk | FTP | other *** search
/ RenderOrgan / (WIN+MAC) RenderOrgan / renderorgan / renderorgan.img / pc / msstp / setup.mst < prev    next >
Text File  |  1995-10-19  |  4KB  |  143 lines
  1. '**************************************************************************
  2. '*                       MSSetup Toolkit RenderOrgan
  3. '**************************************************************************
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9.  
  10. ''Dialog ID's
  11. CONST WELCOME       = 100
  12. CONST ASKQUIT       = 200
  13. CONST DESTPATH      = 300
  14. CONST EXITFAILURE   = 400
  15. CONST EXITQUIT      = 600
  16. CONST EXITSUCCESS   = 700
  17. CONST OPTIONS       = 800
  18. CONST APPHELP       = 900
  19. CONST CHECK         = 2500
  20. CONST CHECKJ        = 2550
  21. CONST BADPATH       = 6400
  22. CONST ENDING        = 8000
  23. CONST ENDINGJ       = 8050
  24.  
  25. ''Bitmap ID
  26. CONST LOGO = 1
  27.  
  28. GLOBAL DEST$        ''Default destination directory.
  29. GLOBAL OPTCUR$      ''Option selection from option dialog.
  30.  
  31. DECLARE SUB Install
  32. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  33.  
  34.  
  35. INIT:
  36.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  37.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  38.  
  39.     title$ = "RenderOrgan Setup"
  40.     dlg% = CHECKJ
  41.     dlge% = ENDINGJ
  42.  
  43.     SetBitmap CUIDLL$, LOGO
  44.     SetTitle title$
  45.  
  46.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  47.     IF szInf$ = "" THEN
  48.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  49.     END IF
  50.     ReadInfFile szInf$
  51.  
  52.     szWinDir$ = GetWindowsDir()
  53.     szRoot$ = GetSymbolValue("STF_SRCDIR")
  54.  
  55.  
  56.  
  57.  
  58.  
  59. GETPATH:
  60.     SetSymbolValue "EditTextIn", "C:\"
  61.     SetSymbolValue "EditFocus", "END"
  62. GETPATHL1:
  63.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  64.     DEST$ = GetSymbolValue("EditTextOut")
  65.  
  66.     IF NOT sz$ = "CONTINUE" THEN
  67.         GOTO QUIT
  68.     END IF
  69.     IF IsDirWritable(DEST$) = 0 THEN
  70.         GOSUB BADPATH
  71.         GOTO GETPATHL1
  72.     END IF
  73.     UIPop 1
  74.  
  75.  
  76.  
  77.     szRoot2$ = MID$(szRoot$, 1, 2)
  78.  
  79.  
  80.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  81.         DstDir$ = GetSymbolValue("EditTextOut")
  82.         AddSectionFilesToCopyList "Files", SrcDir$, DstDir$
  83.     CopyFilesInCopyList
  84.     CreateProgmanGroup "SYNERGY", "SYNERGY", cmoNone
  85.     ShowProgmanGroup  "SYNERGY", 1, cmoNone
  86.  
  87.     CreateProgmanItem "SYNERGY", "RenderOrgan", szRoot$+"743\743.exe", MakePath(DEST$,"743\743_1.ico")+",ICON_1,,,"+szRoot$+"dir", cmoOverwrite
  88.     CreateProgmanItem "SYNERGY", "RenderOrgan WinG", szRoot$+"743\wing\743.exe", MakePath(DEST$,"743\743_2.ico")+",ICON_1,,,"+szRoot$+"dir", cmoOverwrite
  89.     CreateProgmanItem "SYNERGY", "必ずお読みください", szRoot$+"readme.wri", MakePath(DEST$,"743\readme.ico")+",ICON_1,,,"+szRoot$+"", cmoOverwrite
  90.  
  91.     sz$ = UIStartDlg(CUIDLL$, dlge%, "FInfo0DlgProc", APPHELP, HELPPROC$)
  92.  
  93. QUIT:
  94.  
  95.     END
  96.  
  97. '**
  98. '** Purpose:
  99. '**     Appends a file name to the end of a directory path,
  100. '**     inserting a backslash character as needed.
  101. '** Arguments:
  102. '**     szDir$  - full directory path (with optional ending "\")
  103. '**     szFile$ - filename to append to directory
  104. '** Returns:
  105. '**     Resulting fully qualified path name.
  106. '*************************************************************************
  107. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  108.     IF szDir$ = "" THEN
  109.         MakePath = szFile$
  110.     ELSEIF szFile$ = "" THEN
  111.         MakePath = szDir$
  112.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  113.         MakePath = szDir$ + szFile$
  114.     ELSE
  115.         MakePath = szDir$ + "\" + szFile$
  116.     END IF
  117. END FUNCTION
  118.  
  119. BADPATH:
  120.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  121.     IF sz$ = "REACTIVATE" THEN
  122.         GOTO BADPATH
  123.     END IF
  124.     UIPop 1
  125.     RETURN
  126.  
  127.  
  128.  
  129.  
  130. ASKQUIT:
  131.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  132.  
  133.     IF sz$ = "EXIT" THEN
  134.         UIPopAll
  135.         ERROR STFQUIT
  136.     ELSEIF sz$ = "REACTIVATE" THEN
  137.         GOTO ASKQUIT
  138.     ELSE
  139.         UIPop 1
  140.     END IF
  141.     RETURN
  142.  
  143.